'''
''' All web methods need to be defined with the WebMethod tag.
'''
_
Public Shared Function GetRecordDescription(ByVal MyRecordID As Integer) As String
' For INTEGER Id's
Dim whereStr As String = "${Record ID} = " & MyRecordID
' For STRING Id's, comment out above line and uncomment below line.
' Dim whereStr As String = "${Record ID} = '" & MyRecordID & "'"
Dim rec As ${${Table Name}RecordClassName} = ${${Table Name}ClassName}.GetRecord(whereStr)
'In this example the description of the selected record is retrieved
Dim content As String = "The description for the chosen record is " & rec.${Description Field}
Return content
End Function
|